Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    Dim ǹ As PivotTable
    Dim ʵ As PivotField
    Dim Ӹ As Range
    
    Application.EnableEvents = False

        Set ǹ = Target

        Set Ӹ = Sheets("sample").Range("A1").CurrentRegion.Rows(1)

        For Each ʵ In ǹ.DataFields

            With Ӹ.Find(What:=ʵ.SourceName)

                ʵ.NumberFormat = .Offset(1).NumberFormat
            
            End With
            
        Next

    Application.EnableEvents = True

End Sub